home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / DNPCP1.SCR < prev    next >
Encoding:
Text File  |  1987-09-20  |  5.0 KB  |  264 lines
  1. debug off
  2. ;JTL 9-17-87 23:55pm
  3. getscr
  4. clrscr
  5. colorfg 15
  6. box 6 1 75 16
  7. colorfg 14
  8.  
  9. note
  10. display ' ****-'
  11. colorfg 13
  12. colorbg 1
  13. display 'Multiple'
  14. colorfg 14
  15. colorbg 0
  16. display '-File DnLoad/Logoff PCBoard V11/12.0  Qmodem 3.1-****'
  17. colorfg 15
  18. Note
  19. Note Instructions:
  20. colorfg 6
  21. Note     Enter a filename to be downloaded after each prompt.
  22. Note     Maximum of TWENTY (20) filenames can be entered.
  23. Note     A blank <CR> entry starts the transfers.
  24. colorfg 7
  25. Note     An Incorrect Filename is Automatically bypassed.
  26. Note     Re-enter the correct Filename on the next File #.
  27. Note
  28. colorfg 6
  29. string login transfer logend dirpath correct cnt file cownt count cwnt kount
  30. getlog:
  31. colorfg 6
  32. display "    Select Auto-Logoff after File Transfers [Y]es or [N]o ? > "
  33. colorfg 15
  34. inkey login
  35. displayln '$login'
  36. if '$login' =  'N'  nlog
  37. if '$login' =  'Y'  ylog
  38. goto getlog
  39. nlog:
  40. assign logend "done"
  41. goto home
  42. ylog:
  43. assign logend "logoff"
  44.  
  45. home:
  46. colorfg 6
  47. display '    Select Download Protocol [X,C,Y,B,I,G,Z <Q>=Quit] > '
  48. colorfg 15
  49. inkey 9
  50. displayln '$9'
  51. IF  '$9' =  'X'   menu
  52. IF  '$9' =  'C'   menu
  53. IF  '$9' =  'I'   menu
  54. IF  '$9' =  'Y'   menu
  55. IF  '$9' =  'B'   menu
  56. IF  '$9' =  'G'   menu
  57. IF  '$9' =  'Z'   menu
  58. IF  '$9' =  'Q'   done
  59. goto home
  60.  
  61. menu:
  62. selpath:
  63. colorfg 3
  64. Note     Enter Download Drive:\Path  DO NOT use a "\" to end the Path.
  65. colorfg 6
  66. display '    Drive:\Path > '
  67. colorfg 15
  68. get dirpath 45
  69. if '$dirpath' = '' selpath
  70. CHDIR $dirpath\
  71. IF $Success valid
  72. CHDIR $dirpath
  73. IF $Success valid
  74. colorfg 12
  75. displayln "    Path is Invalid, Re-enter."
  76. colorfg 6
  77. goto selpath
  78. valid:
  79. colorfg 2
  80. display "    Path is Valid."
  81. colorfg 6
  82. display  ' Is Path Correct [Y]es or [N]o ? <CR>=Yes > '
  83. colorfg 15
  84. inkey correct
  85. displayln '$correct'
  86. if '$correct' = 'Y' getone
  87. if '$correct' = 'N' selpath
  88. if '$correct' <> '^M' selpath
  89.  
  90. getone:
  91. colorfg 2
  92. assign cwnt 0   ;actual file counter
  93. assign cnt  1   ;visual file counter
  94. assign count 4  ;xy position counter
  95. goto gfiles
  96.  
  97. column:
  98. gotoxy 28 $count
  99. colorfg 2
  100. display '    File # $cnt > '
  101. incr count
  102. goto  files2
  103. gfiles:
  104. colorfg 2
  105. display '    File # $cnt > '
  106. colorfg 3
  107. files2:
  108. colorfg 3
  109. get file 12
  110. if '$file' = '' go
  111. push '$file'
  112. incr cnt
  113. incr cwnt
  114. if  '$cnt' = '11' column
  115. if  '$cnt' = '12' column
  116. if  '$cnt' = '13' column
  117. if  '$cnt' = '14' column
  118. if  '$cnt' = '15' column
  119. if  '$cnt' = '16' column
  120. if  '$cnt' = '17' column
  121. if  '$cnt' = '18' column
  122. if  '$cnt' = '19' column
  123. if  '$cnt' = '20' column
  124. if  '$cnt' = '21' go
  125. goto gfiles
  126.  
  127. go:
  128. colorfg 7
  129. gotoxy 1 13
  130. note
  131. display '    Online with: '
  132. colorbg 2
  133. colorfg 15
  134. display ' $board '
  135. colorbg 0
  136. colorfg 7
  137. display ' '
  138. colorbg 4
  139. colorfg 15
  140. display '[$9]'
  141. colorbg 0
  142. colorfg 7
  143. displayln ' Protocol '
  144. colorfg 10
  145. display '    $cwnt'
  146. colorfg 7
  147. if '$cwnt' = '1' one
  148. display ' Files will be Downloaded in Reverse order from: '
  149. goto skip
  150. one:
  151. display ' File will be Downloaded '
  152. goto cont
  153. skip:
  154. colorbg 2
  155. colorfg 15
  156. display ' $cwnt to 1 '
  157. colorbg 0
  158. colorfg 7
  159. cont:
  160. colorbg 0
  161. displayln ' '
  162. display  ' '
  163. colorfg 0
  164. colorbg 6
  165. display "===================[ Online Text Area Below ]====================="
  166. colorbg 0
  167. colorfg 12
  168. box 1,17,80,$last_row
  169. clrscr
  170. colorfg 3
  171. timeout 60 $logend
  172. assign cownt $cnt
  173.  
  174. start:
  175. send "{"  ;maybe two <CRs>
  176. colorfg 3
  177. WAITFOR "Command?"
  178. send "d{"
  179. waitfor "none?"
  180. assign kount $cnt ;file counter in window
  181. next:
  182. decr kount
  183. when
  184. pop file
  185. if '$file' = '' $logend
  186. SEND "$file $9{"
  187. when "none?" next
  188. when "Aborts Transfer" load
  189. WAITFOR "Abort"
  190. load:
  191. pause 1000
  192. gotoxy 1 40
  193. display '                                                                    '
  194. colorbg 2
  195. colorfg 15
  196. display 'File # $kount'
  197. colorbg 0
  198. colorfg 3
  199. DOWNLD $dirpath\$file $9
  200. decr cownt
  201. if '$cownt' < "1"  $logend
  202. if '$9' = 'z' tones
  203. goto start
  204.  
  205. tones:
  206. beep 400
  207. beep 600
  208. beep 800
  209. goto start
  210.  
  211. done:
  212. send "{"
  213. colorfg 10
  214. putscr
  215. exit
  216.  
  217. logoff:
  218. putscr
  219. clrscr
  220. when
  221. when "Command?" logout
  222. send "{"
  223. waitfor "Command?"
  224.  
  225. logout:
  226. pause 4500
  227. clrscr
  228. colorfg 6
  229. note
  230. Note            Auto Logoff was Previously Selected.
  231. colorfg 15
  232. note
  233. Note            PRESS [Esc] then [Y] to Abort the Logoff.
  234. colorfg 10
  235. assign 0 $wherex
  236. assign 1 $wherey
  237. assign cnt 9
  238. tmout:
  239. gotoxy $0 $1
  240. display '           $cnt  Seconds to Auto Logoff.
  241. pause 200
  242. if '$cnt' = '2' bye
  243. decr cnt
  244. goto tmout
  245. bye:
  246. gotoxy $0 $1
  247. display '           1  Second  to Auto Logoff.
  248. pause 200
  249. colorfg 15
  250. note            Auto-Logoff Completed.
  251. colorfg 10
  252. send "g{"
  253. pause 5000
  254. Hangup
  255. exit
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.